Function dostuff()
Dim Pts(1, 4) As Double
Pts(0, 0) = 1
Pts(1, 0) = 1
Pts(0, 1) = 2
Pts(1, 1) = 2
Pts(0, 2) = 3
Pts(1, 2) = 4
Pts(0, 3) = 4
Pts(1, 3) = 8
Pts(0, 4) = 5
Pts(1, 4) = 16
dostuff = Run("Linear_Interpolate", 3.21, Pts)
End Function
* All trademarks are the property of their respective owners.